home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a00_opn1.bas next >
BASIC Source File  |  1993-11-30  |  185b  |  10 lines
  1. 10 NUM=1
  2. 40 F$="A"+RIGHT$(STR$(100+NUM),2)
  3. 50 COMMON NUM
  4. 60 CHAIN MERGE F$,100,,DELETE 1000-5000
  5. 100 '
  6. 10000 NUM=NUM+1
  7. 10050 IF NUM=24 THEN GOTO 10200 
  8. 10100 GOTO 40
  9. 10200 END
  10.